home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / fullpage.sit / Full-Page Paint / card_3821.txt < prev    next >
Text File  |  1988-11-14  |  7KB  |  317 lines
  1. -- card: 3821 from stack: in
  2. -- bmap block id: 4832
  3. -- flags: 0000
  4. -- background id: 2715
  5. -- name: UserCard
  6.  
  7.  
  8. -- part 4 (field)
  9. -- low flags: 01
  10. -- high flags: 0004
  11. -- rect: left=3 top=23 right=202 bottom=142
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Control
  20.  
  21.  
  22. -- part 11 (button)
  23. -- low flags: 00
  24. -- high flags: A000
  25. -- rect: left=90 top=79 right=105 bottom=127
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 17794 / 17794
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Print
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   play boing
  37.   answer "Make your choice..." with "Forget It" or "Chooser" or "Print"
  38.   if it is "Forget It" then exit mouseUp
  39.   if It is "Chooser" then domenu "Chooser"
  40.   if it is "Chooser" then exit mouseUp
  41.   get first word of second line of card field control
  42.   if it is not "Upper" then answer "You must print from the Upper half" with "OK"
  43.   if it is "OK" then exit mouseUp
  44.   show msg
  45.   put "Don't forget to set the dialog box for:"
  46.   wait 3 seconds
  47.   put quote&"Print full size cards,""e&" and ""e& "No space between cards.""e
  48.   wait 3 seconds
  49.   hide bkgnd field "index number"
  50.   hide card button help
  51.   hide card button home
  52.   hide card button delete
  53.   hide card button print
  54.   hide card button new
  55.   hide card button prev
  56.   hide card button next
  57.   hide card button menus
  58.   hide card field control
  59.   open printing with dialog
  60.   push card
  61.   print card
  62.   go to next card
  63.   hide card button help
  64.   hide card button home
  65.   hide card button delete
  66.   hide card button print
  67.   hide card button new
  68.   hide card button prev
  69.   hide card button next
  70.   hide card button menus
  71.   hide card field control
  72.   print card
  73.   pop card
  74.   close printing
  75.   show bkgnd field "Index Number"
  76.   put "All done, Boss."
  77.   wait 3 seconds
  78.   hide msg
  79. end mouseUp
  80.  
  81.  
  82.  
  83. -- part 12 (button)
  84. -- low flags: 00
  85. -- high flags: 2000
  86. -- rect: left=12 top=111 right=145 bottom=47
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 31975 / 31975
  89. -- text alignment: 1
  90. -- font id: 0
  91. -- text size: 12
  92. -- style flags: 0
  93. -- line height: 16
  94. -- part name: Menus
  95. ----- HyperTalk script -----
  96. on mouseUp
  97.   global temp, menu1
  98.   if visible of bkgnd field "toggle" is false then put "true" into menu1
  99.   if visible of bkgnd field "toggle" is true then put "false" into menu1
  100.   if temp is "gone" then show menuBar
  101.   if temp is "gone" then show bkgnd field "toggle"
  102.   if temp is "gone" then put "here" into temp
  103.   if menu1 is "true" then exit mouseUp
  104.   hide menuBar
  105.   hide bkgnd field toggle
  106.   put "gone" into temp
  107. end mouseUp
  108.  
  109.  
  110.  
  111. -- part 15 (button)
  112. -- low flags: 00
  113. -- high flags: 0000
  114. -- rect: left=55 top=115 right=141 bottom=82
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 1014 / 1014
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: Prev
  123. ----- HyperTalk script -----
  124. on mouseUp
  125.   go to prev card
  126. end mouseUp
  127.  
  128.  
  129.  
  130. -- part 16 (button)
  131. -- low flags: 00
  132. -- high flags: 0000
  133. -- rect: left=94 top=115 right=141 bottom=121
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 1013 / 1013
  136. -- text alignment: 1
  137. -- font id: 0
  138. -- text size: 12
  139. -- style flags: 0
  140. -- line height: 16
  141. -- part name: Next
  142. ----- HyperTalk script -----
  143. on mouseUp
  144.   go to next card
  145. end mouseUp
  146.  
  147.  
  148.  
  149. -- part 17 (button)
  150. -- low flags: 00
  151. -- high flags: 2000
  152. -- rect: left=58 top=78 right=104 bottom=78
  153. -- title width / last selected line: 65535
  154. -- icon id / first selected line: -15989 / 49547
  155. -- text alignment: 1
  156. -- font id: 0
  157. -- text size: 12
  158. -- style flags: 0
  159. -- line height: 16
  160. -- part name: Delete
  161. ----- HyperTalk script -----
  162. on mouseUp
  163.   set lockScreen to true
  164.   get the name of this card
  165.   if it contains "Master" then answer "You can't delete the Master cards." with "OK"
  166.   if it is "OK" then exit mouseup
  167.   answer "Are you sure?" with "No Way!" or "Do it"
  168.   if it is "No Way!" then exit mouseUp
  169.   get first line of card field "Control"
  170.   domenu "delete card"
  171.   find it
  172.   domenu "delete card"
  173.   go to first card
  174.   put 0 into it
  175.   repeat the number of cards/2
  176.     add 1 to it
  177.     put it into field "Index Number"
  178.     go to next card
  179.     put it & "B" into field "Index Number"
  180.     go to next card
  181.   end repeat
  182.   set lockScreen to false
  183. end mouseUp
  184.  
  185.  
  186.  
  187. -- part 21 (button)
  188. -- low flags: 00
  189. -- high flags: 0000
  190. -- rect: left=15 top=149 right=172 bottom=44
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 21700 / 21700
  193. -- text alignment: 1
  194. -- font id: 0
  195. -- text size: 12
  196. -- style flags: 0
  197. -- line height: 16
  198. -- part name: Home
  199. ----- HyperTalk script -----
  200. on mouseUp
  201.   go home
  202. end mouseUp
  203.  
  204.  
  205.  
  206. -- part 23 (button)
  207. -- low flags: 00
  208. -- high flags: 2000
  209. -- rect: left=17 top=75 right=107 bottom=42
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 1002 / 1002
  212. -- text alignment: 1
  213. -- font id: 0
  214. -- text size: 12
  215. -- style flags: 0
  216. -- line height: 16
  217. -- part name: New
  218. ----- HyperTalk script -----
  219. on mouseUp
  220.   go to first card
  221.   domenu "Copy Card"
  222.   ask "Name your painting..."
  223.   put it into pictitle
  224.   set lockScreen to true
  225.   if it is "" then exit mouseUp
  226.   go to last card
  227.   domenu "Paste Card"
  228.   put "" into field hidehelp1
  229.   put it into first line of card field "Control"
  230.   put the short date into last line of card field "Control"
  231.   set name of this card to "UserCard"
  232.   push card
  233.   go to second card
  234.   domenu "Copy Card"
  235.   pop card
  236.   domenu "Paste Card"
  237.   put "" into field hidehelp1
  238.   put it into first line of card field "Control"
  239.   put the short date into last line of card field "Control"
  240.   set name of this card to "UserCard"
  241.   go to first card
  242.   put 0 into it
  243.   repeat the number of cards/2
  244.     add 1 to it
  245.     put it into field "Index Number"
  246.     go to next card
  247.     put it & "B" into field "Index Number"
  248.     go to next card
  249.   end repeat
  250.   set lockScreen to false
  251.   find pictitle
  252. end mouseUp
  253.  
  254.  
  255.  
  256. -- part 24 (button)
  257. -- low flags: 00
  258. -- high flags: 2000
  259. -- rect: left=90 top=144 right=179 bottom=125
  260. -- title width / last selected line: 0
  261. -- icon id / first selected line: 1020 / 1020
  262. -- text alignment: 1
  263. -- font id: 0
  264. -- text size: 12
  265. -- style flags: 0
  266. -- line height: 16
  267. -- part name: Help
  268. ----- HyperTalk script -----
  269. on mouseUp
  270.   hide bkgnd field hidehelp1
  271.   hide bkgnd field hidehelp2
  272.   wait until the mouse is down
  273.   show bkgnd field hidehelp1
  274.   show bkgnd field hidehelp2
  275. end mouseUp
  276.  
  277.  
  278.  
  279.  
  280. -- part 25 (button)
  281. -- low flags: 00
  282. -- high flags: A000
  283. -- rect: left=196 top=280 right=327 bottom=268
  284. -- title width / last selected line: 0
  285. -- icon id / first selected line: 26884 / 26884
  286. -- text alignment: 1
  287. -- font id: 0
  288. -- text size: 12
  289. -- style flags: 0
  290. -- line height: 16
  291. -- part name: Full-Page Paint
  292. ----- HyperTalk script -----
  293. on mouseUp
  294.   go to stack "Full-Page Paint"
  295. end mouseUp
  296.  
  297.  
  298.  
  299.  
  300. -- part contents for card part 4
  301. ----- text -----
  302. Example Painting
  303. Upper Half
  304.  
  305.  
  306.  
  307.  
  308.  
  309.  
  310.  
  311.  
  312. 9/20/87
  313.  
  314.  
  315. -- part contents for background part 6
  316. ----- text -----
  317. 2